510 FOR X=0 TO 7:CIRCLE(X*8+4,192),X,7,1,,,F:NEXT:GOSUB *MPE
520 RESTORE 530:FOR X=0 TO KI:LINE((X MOD 2)*16+2,(X\2)*10+25)-STEP(16,10),PSET,0,BF:READ A(X):LINE STEP(-17,-11)-STEP(16,10),PSET,0,BF,[255-A(X)*50,255-A(X)*50,255-A(X)*50]:NEXT
530 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,2,1,1,1,1,1,1,1,1,1
750 IF A$=CHR$(11) THEN GOSUB *ESCG:V=0:V2=-1:GOSUB *ESCP:GOSUB *率:GOSUB *WA
760 IF A$="*" THEN GOSUB *WA
770 IF A$="/" THEN GOSUB *率
780 IF A$="-" THEN GOSUB *拡大
790 IF A$<"A" THEN 810
800 ON ASC(A$)-64 GOSUB *WQA,*反転,*CLS,*BCLS,*END,*SUD,*SLR,*B反転,*DLOAD,*ANIM,*S回転,*GLOAD,*率,*B拡大,*DSAVE,*変換,*WQU,*SROLL,*GSAVE,*BROLL,*DS16,*WAVEX,*WAVEY,*BLR,*B回転,*BUD
3550 *TE ON MNO GOTO 3560,3600,*MGET,*MPUT,*楕円,*TILCH,*NEKO,*FANT,*MPEN2
3560 GP(L)=V:GP2(L)=V2:GPX(L)=EX-BX:GPY(L)=EY-BY
3570 IF M0 THEN GET@A(WX,WY)-(WX+XN,WY+YN),B:PUT@A(EX,EY)-(EX+XN,EY+YN),B
3580 IF M1 THEN GET@A(EX,EY)-(EX+XN,EY+YN),B:PUT@A(WX,WY)-(WX+XN,WY+YN),B:GOSUB *拡大
3590 LOCATE 11,5:PRINT USING "編集元 Page### x### y###";GP(L)+1,GPX(L),GPY(L):LOCATE 0,24:GOTO *MOUSE
3600 IF M0 THEN GET@A(WX,WY)-(WX+XN,WY+YN),B:PUT@A(EX,EY)-(EX+XN,EY+YN),B
3610 IF M1 THEN GET@A(EX,EY)-(EX+XN,EY+YN),B:GET@A(WX,WY)-(WX+XN,WY+YN),D:PUT@A(WX,WY)-(WX+XN,WY+YN),B:PUT@A(WX,WY)-(WX+XN,WY+YN),D,MATTE,,,[M(1,0),M(1,1),M(1,2)]:GOSUB *拡大
3620 GOTO *MOUSE
3630 *MKEY X=MX\20
3640 IF X=0 THEN *MODES
3650 IF X=12 THEN *MDO
3660 IF X=13 THEN *率
3670 IF X=14 THEN *MCDP
3680 IF X=15 THEN *END
3690 RETURN
3700 *MCDP IF M0 THEN CD PLAY
3710 IF M1 THEN CD STOP
3720 RETURN
3730 *NEKO GOSUB *ESCG:Y2=(BY+BY2)/2:GOSUB *MMI:IF V2=-1 THEN V2=V*BY4